home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / ai_grdms.scp < prev    next >
Text File  |  1995-02-23  |  5KB  |  295 lines
  1. { READY_GRDHANG
  2.  
  3. I ^ç╖ THEN
  4. {
  5. I @Ç¢ GRDHANG THEN
  6. K 
  7. é 
  8. }
  9. I ^î¼ = $üé THEN
  10. é 
  11. I @Ç¢ GRDHANG = $üé THEN
  12. {
  13. ! "CAN'T FIND GrdHang !!" 
  14.  
  15. é 
  16. }
  17. è ON
  18. ┬ 
  19.  
  20.  
  21. Y SHO1 SHO2 SHO3 SHO4 SHO5 CTR3
  22. Z CURFIG ON
  23. ö GRDHANG
  24. G PGRDHANG
  25. ¥ NOCROSS1 100
  26. ¥ NOCROSS2 100
  27. ¥ NOCROSS3 100
  28. ¥ NOCROSS4 100
  29. ¥ NOCROSS5 100
  30. ¥ AVD_BK1 150
  31. ¥ AVD_BK2 75
  32. ¥ AVD_BK3 100
  33.  
  34. I @ÇÜ WTALKY THEN
  35. f CARRY
  36. E 
  37. ! "&&& Can't find walky talky &&&" 
  38. M ATK_STAND CONTINUE SNAP_TO
  39. }
  40. { ACTIVATE_GRDHANG
  41. I ^ç╖ THEN
  42. é 
  43. I ^î¼ = $üé THEN
  44. é 
  45. I @Ç¢ GRDHANG = $üé THEN
  46. {
  47. ! "CAN'T FIND GrdHang !!" 
  48.  
  49. é 
  50. }
  51. è ON
  52. ┬ 
  53. ^î░ = 0
  54. W 20
  55. I ^î» = $üâ THEN
  56. {
  57. ┴ 
  58. ┬ 
  59. M C_TAUNT1 CONTINUE
  60. ^îé = @Ç║ `媠$üè "GUARD: Be warned...~I have orders to kill you should you approach./FPrends garde,~ j'ai ordre de te tuer si tu approches./GVorsicht, mein Befehl lautet,~dich zu töten, wenn du näher kommst."
  61. ^îü = @Çÿ `媠
  62. ^î░ = 1
  63. é 
  64. }
  65. ^î» = $üâ 
  66. ┴ 
  67. ┬ 
  68. M C_TAUNT1 CONTINUE
  69. @Ç¢ PLAYER 
  70. A OFF
  71. è ON
  72. ^îé = @Ç║ `åñ $üè "GUARD: Hangar to Dr. Mastaba:~I've spotted the assassin.../FHangar au Docteur Mastaba ! ~J'ai repéré l'assassin.../GHangar an Doktor Mastaba!~Ich habe den Killer entdeckt."
  73. ┴ 
  74. @Ç¥ PAUSE_FOR_SUBTITLE
  75.  @Ç║ `åÑ $üè "GUARD: The assassin is now in the hangar area./FL'assassin se trouve dans la zone du hangar./GDer Killer ist jetzt im Hangarbereich."
  76.  @Ç║ `å¡ $üä "MASTABA: Impossible!/FImpossible !/GUnmöglich!"
  77.  @Ç║ `è║ $üä "He took enough electricity~to fry every synapse in his brain./FIl a reçu assez d'électricité~pour se faire frire toutes les~synapses de son cerveau./GEr hat genug Strom abgekriegt,~um jede Synapse in~seinem Hirn durchbrennen zu lassen." 
  78. A ON
  79. ^î░ = 1
  80.  @Ç║ `å« $üä "Guard the Icarus project with your life!/FVeille bien sur le projet Icare./GBewacht das Icarus-Projekt mit eurem Leben."
  81.  @Ç║ `å» $üä "I will return shortly./FJe reviens tout de suite./GIch bin bald wieder zurück."
  82. }
  83. { GRDHANG_AI
  84. P ~ÇÇ 
  85. ^îê = 0
  86.  
  87. ^îç = 0
  88. :TOP
  89. â 
  90. I ^î░ = 0 THEN
  91. J #Çâ
  92.  
  93. I .ÇéÇâ != $üö THEN
  94. J #Çâ
  95. @Ç¥ CHECK_SIDES
  96. ~ÇÇ = @Ç¥ MONSTER_MOVE 10
  97. I ~ÇÇ > 0 THEN
  98. {
  99. N ~ÇÇ 
  100. {
  101. U 1
  102. I @Çô "atk_m1" != $üâ THEN
  103. M ATK_M1 CONTINUE
  104. X ÇÇ 
  105. U 2
  106. I @Çô "atk_m2" != $üâ THEN
  107. M ATK_M2 CONTINUE
  108. X ÇÇ 
  109. U 3
  110. I @Çô "atk_m3" != $üâ THEN
  111. M ATK_M3 CONTINUE
  112. X ÇÇ 
  113. U 4
  114. U 6
  115. ┴ 
  116. X ÇÇ 
  117. U 7
  118. I @Çô "atk_m7" != $üâ THEN
  119. M ATK_M7 CONTINUE
  120. X ÇÇ 
  121. U 8
  122. I @Çô "atk_m8" != $üâ THEN
  123. M ATK_M8 CONTINUE
  124. X ÇÇ 
  125. U 9
  126. I @Çô "atk_m9" != $üâ THEN
  127. M ATK_M9 CONTINUE
  128. X ÇÇ 
  129. U 10
  130. I @Çô "atk_m10" != $üâ THEN
  131. M ATK_M10 CONTINUE
  132. X ÇÇ 
  133. }
  134. }
  135. E 
  136. {
  137.  @Çì LUTHOR_ATTACK
  138. }
  139. J #Çâ
  140. }
  141. { CHECK_SIDES
  142. P ~ÇÇ 
  143. P ~Çü 
  144. I @Çí CURFIG SIDE_A THEN
  145. {
  146. @Ç¢ PLAYER 
  147. I @Çí CURFIG SIDE_B THEN
  148. J #Çà 
  149. é 
  150. }
  151. I @Çí CURFIG SIDE_B THEN
  152. {
  153. @Ç¢ PLAYER 
  154. I @Çí CURFIG SIDE_A THEN
  155. J #Çà 
  156. }
  157. é 
  158. :CIRCLE
  159. @Ç¢ GRDHANG 
  160. ~ÇÇ = @Ç▒ CURFIG RING1 
  161. ~Çü = @Ç▒ CURFIG RING2 
  162. I ~ÇÇ < ~Çü THEN
  163. G RING1 30 RUN
  164. E 
  165. G RING2 30 RUN
  166. }
  167. { GRDHANG_STIMULUS _DAMAGE 
  168. P ~Çü 
  169. :GOT_HIT
  170. I @Çó ^îé THEN
  171.  ^îü 
  172. é 
  173. :SUPER_RECOIL
  174. ^îç ++
  175. @Ç¢ PLAYER 
  176. I ^îç = 2 THEN
  177. {
  178.  
  179. ^îà = @Ç║ `å½ $üë "Where is Mastaba!?~How do I get out of here!/FOù est Mastaba ?~ Comment on sort d'ici ?/GWo ist Mastaba?~Wie komme ich hier heraus?"
  180. ^îå = @Çÿ `å½ 
  181. }
  182. I ^îç = 4 THEN
  183. {
  184.  
  185. ^îé = @Ç║ `å¼ $üë "Tell me how to activate the Icarus~and I will let you live./FDis-moi comment fonctionne l'Icare~ et je te laisserai la vie sauve./GSag' mir, wie ich den Icarus starten kann,~und ich lasse dich leben."
  186. ^îü = @Çÿ `å¼ 
  187. }
  188. I ^îç = 6 THEN
  189. ^îç = 0
  190. é 
  191. :PLAYER_SUPER_RECOILED
  192. ^îê ++
  193. A OFF
  194. I ^îê = 1 THEN
  195. {
  196.  
  197.  
  198. ^îé = @Ç║ `庠$üè "GUARD: The Paragon be praised!~May he live forever!/FGloire au Parangon !~ Vive le Parangon !/GDem Paragon sei Dank!~Lang lebe der Paragon!"
  199. ^îü = @Çÿ `庠
  200. M C_TAUNT2 CONTINUE
  201. }
  202. I ^îê = 3 THEN
  203. {
  204.  
  205.  
  206. ^îé = @Ç║ `å¿ $üè "GUARD: Leave the hangar area now~while you're still alive./FQuitte le hangar pendant~que tu es encore en vie./GGeh' aus dem Hangar,~solange du noch lebst."
  207. ^îü = @Çÿ `å¿ 
  208. M C_TAUNT1 CONTINUE
  209. }
  210. I ^îê = 4 THEN
  211. ^îê = 0
  212. @Ç¥ PAUSE_FOR_SUBTITLE
  213. A ON
  214. é 
  215. :KILLED_PLAYER
  216. I ^î¼ = $üé THEN
  217. é 
  218. A OFF
  219. ┴ 
  220. M ATK_STAND CONTINUE
  221. W 1 SECONDS
  222.  
  223.  
  224.  
  225. M TAUNT1 CONTINUE
  226.  @Ç║ `å⌐ $üè "GUARD: Take all the time you need, Dr. Mastaba./FPrenez tout votre temps,~Docteur Mastaba.../GLassen Sie sich Zeit, Dr. Mastaba."
  227. @Ç║ `嬠$üè "Your assassin has been...~dealt with./FOn a réglé son compte à votre assassin./GDer Killer ist erledigt."
  228. â 
  229. è OFF
  230. M STAND CONTINUE
  231. }
  232. { GRDHANG_DEATH
  233. @Ç¢ PLAYER 
  234. A OFF
  235. M ATK_STAND CONTINUE
  236. @Ç¢ GRDHANG 
  237. ^î¼ = $üé 
  238. A OFF
  239. ║ ON
  240. u CURFIG OFF
  241. è OFF
  242.  
  243. o 
  244.  
  245.  
  246. I @Çí CURFIG FACEAWAY THEN
  247. £ FACEHERE GRADUAL
  248. M DIE
  249. o 
  250.  
  251. I @ÇÜ WTALKY THEN
  252. {
  253. f GROUND
  254. }
  255. E 
  256. ! "&&& Can't find walky talky &&&" 
  257. @Ç¢ PLAYER 
  258. M ATK_M2 CONTINUE
  259. W 20
  260. I @Çò > 30 THEN
  261. ┴ 
  262. è OFF
  263. M STAND CONTINUE
  264. W 1 SECONDS
  265. M TAUNT1 CONTINUE
  266. @Çì GROWL 5
  267.  
  268.  @Ç║ `å▓ $üë "I swear that when my time comes,~I will not die a puppet like yourself./FJe jure que lorsque mon heure viendra,~je ne mourrai pas comme un pantin, moi./GIch schwöre, wenn ich dran bin,~werde ich nicht wie eine~Puppe sterben, so wie du."
  269. M STAND CONTINUE
  270. â 
  271. A ON
  272. C UNLOCK
  273. W 5 SECONDS
  274.  @Ç║ `å░ $üä "MASTABA: Mastaba to base hangar...~What is your status?/FMastaba au hangar de la base :~Quelle est la situation ?/GMastaba an Basis-Hangar.~Zustandsmeldung!"
  275. W 3 SECONDS
  276.  @Ç║ `å▒ $üä "DAMN!/FMalédiction !/GVerdammt!"
  277. W 3 SECONDS
  278. @Çì ESCHER_CRIES_FOR_HELP
  279. }
  280. { GRDHANG_WOUNDS
  281. @Ç¢ GRDHANG 
  282. @Ç¥ GRD_WOUNDS
  283. }
  284. { GRDHANG_ENTER_COMBAT
  285. @Ç¢ GRDHANG 
  286. @Ç¥ GRD_ENTER_COMBAT
  287. }
  288. { GRDHANG_LEAVE_COMBAT
  289. @Ç¢ GRDHANG 
  290. @Ç¥ GRD_LEAVE_COMBAT
  291. }
  292.  
  293.  
  294. //$ 26 - version number
  295.